(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     35022,        998]
NotebookOptionsPosition[     33165,        932]
NotebookOutlinePosition[     33646,        952]
CellTagsIndexPosition[     33603,        949]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:9f50\:6b21\:5750\:6807", "Chapter"],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "\:5b9a\:4e49\:4e00\:4e2a\:56fe\:5f62\:5750\:6807", "*)"}]}],
   "Code"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"p1", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "Code"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"p2", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0.4", ",", "0"}], "}"}]}], ";"}], 
  "Code"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"p3", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0.4", ",", "0.4"}], "}"}]}], ";"}], 
  "Code"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"p4", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.4"}], "}"}]}], ";"}], "Code"]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[CellGroupData[{

Cell["\:5e73\:79fb", "Subchapter"],

Cell["\<\
\:5e73\:79fb\:9700\:8981\:52a0\:4e0a\:4e00\:4e2a\:5411\:91cf\:ff0c\:4f46\:662f\
\:8fd9\:79cd\:5f62\:5f0f\:6bd4\:8f83\:7279\:6b8a\:ff0c\:4e0d\:5229\:4e8e\:7edf\
\:4e00\
\>", "Text"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0"},
       {"0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ".", 
   TagBox[
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"x"},
        {"y"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "+", 
     RowBox[{"{", 
      RowBox[{"Tx", ",", "Ty"}], "}"}]}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "]"}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MoveTransform", "[", 
    RowBox[{"v_", ",", "Tx_", ",", "Ty_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0"},
         {"0", "1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox[
      RowBox[{"v", "+", 
       RowBox[{"{", 
        RowBox[{"Tx", ",", "Ty"}], "}"}]}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p2", ",", "p3"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p3", ",", "p4"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p4", ",", "p1"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p1", ",", "Tx", ",", "Ty"}], "]"}], ",", 
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p2", ",", "Tx", ",", "Ty"}], "]"}]}], "}"}], "]"}], ",", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p2", ",", "Tx", ",", "Ty"}], "]"}], ",", 
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p3", ",", "Tx", ",", "Ty"}], "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p3", ",", "Tx", ",", "Ty"}], "]"}], ",", 
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p4", ",", "Tx", ",", "Ty"}], "]"}]}], "}"}], "]"}], ",", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p4", ",", "Tx", ",", "Ty"}], "]"}], ",", 
          RowBox[{"MoveTransform", "[", 
           RowBox[{"p1", ",", "Tx", ",", "Ty"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.4"}], ",", "0.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.4"}], ",", "0.8"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Tx", ",", "0.2", ",", "\"\<x\:4f4d\:79fb\>\""}], "}"}], ",", 
     RowBox[{"-", "0.4"}], ",", "0.4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Ty", ",", "0.2", ",", "\"\<y\:4f4d\:79fb\>\""}], "}"}], ",", 
     RowBox[{"-", "0.4"}], ",", "0.4"}], "}"}]}], "]"}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`Tx$$ = 0.2, $CellContext`Ty$$ = 0.2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`Tx$$], 0.2, "x\:4f4d\:79fb"}, -0.4, 0.4}, {{
       Hold[$CellContext`Ty$$], 0.2, "y\:4f4d\:79fb"}, -0.4, 0.4}}, 
    Typeset`size$$ = {414., {201., 207.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`Tx$47998$$ = 0, $CellContext`Ty$47999$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`Tx$$ = 0.2, $CellContext`Ty$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`Tx$$, $CellContext`Tx$47998$$, 0], 
        Hold[$CellContext`Ty$$, $CellContext`Ty$47999$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{Thick, 
         Line[{$CellContext`p1, $CellContext`p2}], Thick, 
         Line[{$CellContext`p2, $CellContext`p3}], Thick, 
         Line[{$CellContext`p3, $CellContext`p4}], Thick, 
         Line[{$CellContext`p4, $CellContext`p1}], Red, Thick, 
         Line[{
           $CellContext`MoveTransform[$CellContext`p1, $CellContext`Tx$$, \
$CellContext`Ty$$], 
           $CellContext`MoveTransform[$CellContext`p2, $CellContext`Tx$$, \
$CellContext`Ty$$]}], Red, Thick, 
         Line[{
           $CellContext`MoveTransform[$CellContext`p2, $CellContext`Tx$$, \
$CellContext`Ty$$], 
           $CellContext`MoveTransform[$CellContext`p3, $CellContext`Tx$$, \
$CellContext`Ty$$]}], Red, Thick, 
         Line[{
           $CellContext`MoveTransform[$CellContext`p3, $CellContext`Tx$$, \
$CellContext`Ty$$], 
           $CellContext`MoveTransform[$CellContext`p4, $CellContext`Tx$$, \
$CellContext`Ty$$]}], Red, Thick, 
         Line[{
           $CellContext`MoveTransform[$CellContext`p4, $CellContext`Tx$$, \
$CellContext`Ty$$], 
           $CellContext`MoveTransform[$CellContext`p1, $CellContext`Tx$$, \
$CellContext`Ty$$]}]}, Axes -> True, PlotRange -> {{-0.4, 0.8}, {-0.4, 0.8}}],
       "Specifications" :> {{{$CellContext`Tx$$, 0.2, "x\:4f4d\:79fb"}, -0.4, 
         0.4}, {{$CellContext`Ty$$, 0.2, "y\:4f4d\:79fb"}, -0.4, 0.4}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{471., {267., 274.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9f50\:6b21", "Subchapter"],

Cell[TextData[StyleBox["\:6211\:4eec\:5e0c\:671b\:5e73\:79fb\:53d8\:6362\:4e5f\
\:5199\:6210\:77e9\:9635\:76f8\:4e58\:5f62\:5f0f\:ff0c\:5177\:4f53\:505a\:6cd5\
\:662f\:5bf9\:4e8e\:4efb\:4f55\:4e00\:4e2a\:70b9\:5199\:6210(x,y,1) \:ff0c\
\:5bf9\:4e8e\:4efb\:4f55\:4e00\:4e2a\:5411\:91cf\:5199\:6210(x,y,0)\:ff0c\
\:5411\:91cf\:6dfb\:52a0\:7684\:7ef4\:5ea6\:503c0\:662f\:4e3a\:4e86\:53d8\
\:6362\:540e\:5b83\:7684\:4f4d\:7f6e\:4e0d\:53d8\:ff0c\:5bf9\:4e8e\:4e09\:7ef4\
\:7a7a\:95f4\:ff0c\:4e5f\:662f\:52a0\:4e00\:4e2a\:7ef4\:5ea6", "Text"]], \
"Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"StringForm", "[", 
  RowBox[{"\"\<\:5bf9\:4e8e\:70b9\:ff1a``\>\"", ",", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "Tx"},
         {"0", "1", "Ty"},
         {"0", "0", "1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"x"},
          {"y"},
          {"1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"StringForm", "[", 
  RowBox[{"\"\<\:5bf9\:4e8e\:5411\:91cf\:ff1a``\>\"", ",", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "Tx"},
         {"0", "1", "Ty"},
         {"0", "0", "1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"x"},
          {"y"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], "]"}]}], "]"}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 InterpretationBox["\<\"\:5bf9\:4e8e\:70b9\:ff1a\\!\\(\\*TagBox[RowBox[{\\\"(\
\\\", \\\"\[NoBreak]\\\", TagBox[GridBox[{{RowBox[{\\\"Tx\\\", \\\"+\\\", \
\\\"x\\\"}]}, {RowBox[{\\\"Ty\\\", \\\"+\\\", \\\"y\\\"}]}, {\\\"1\\\"}}, \
Rule[RowSpacings, 1], Rule[ColumnAlignments, Center], Rule[ColumnAlignments, \
Left]], Column], \\\"\[NoBreak]\\\", \\\")\\\"}], Function[BoxForm`e$, \
MatrixForm[BoxForm`e$]]]\\)\"\>",
  StringForm["\:5bf9\:4e8e\:70b9\:ff1a``", 
   MatrixForm[{$CellContext`Tx + $CellContext`x, $CellContext`Ty + \
$CellContext`y, 1}]],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox["\<\"\:5bf9\:4e8e\:5411\:91cf\:ff1a\\!\\(\\*TagBox[RowBox[{\
\\\"(\\\", \\\"\[NoBreak]\\\", TagBox[GridBox[{{\\\"x\\\"}, {\\\"y\\\"}, \
{\\\"0\\\"}}, Rule[RowSpacings, 1], Rule[ColumnAlignments, Center], \
Rule[ColumnAlignments, Left]], Column], \\\"\[NoBreak]\\\", \\\")\\\"}], \
Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\\)\"\>",
  StringForm["\:5bf9\:4e8e\:5411\:91cf\:ff1a``", 
   MatrixForm[{$CellContext`x, $CellContext`y, 0}]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["\:7528\:65b0\:52a0\:5165\:7684\:7ef4\:5ea6\:533a\:5206\:5411\:91cf\:548c\
\:70b9\:8fd8\:6709\:53e6\:4e00\:4e2a\:4f5c\:7528\:ff0c\:5b9a\:4e49\:5411\:91cf\
\:548c\:70b9\:7684\:8fd0\:7b97\:89c4\:5219", "Text"],

Cell[CellGroupData[{

Cell["Vector + Vector = Vector", "ItemNumbered"],

Cell["Point - Point = Vector", "ItemNumbered"],

Cell["Point + Vector = Vector", "ItemNumbered"],

Cell["Point + Point  = \:4e24\:70b9\:7684\:4e2d\:70b9", "ItemNumbered"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x1", ",", "y1", ",", "0"}], "}"}], "+", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "y2", ",", "0"}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x1", ",", "y1", ",", "1"}], "}"}], "-", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "y2", ",", "1"}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x1", ",", "y1", ",", "1"}], "}"}], "+", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "y2", ",", "0"}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x1", ",", "y1", ",", "1"}], "}"}], "+", 
       RowBox[{"{", 
        RowBox[{"x2", ",", "y2", ",", "1"}], "}"}]}], ")"}], "/", "2"}], 
    "]"}]}], "\[IndentingNewLine]", "}"}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{"x1", "+", "x2"}]},
        {
         RowBox[{"y1", "+", "y2"}]},
        {"0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{"x1", "-", "x2"}]},
        {
         RowBox[{"y1", "-", "y2"}]},
        {"0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{"x1", "+", "x2"}]},
        {
         RowBox[{"y1", "+", "y2"}]},
        {"1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         FractionBox[
          RowBox[{"x1", "+", "x2"}], "2"]},
        {
         FractionBox[
          RowBox[{"y1", "+", "y2"}], "2"]},
        {"1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output"]
}, Open  ]],

Cell["\:5176\:4ed6\:53d8\:6362\:4e5f\:53ef\:4ee5\:5199\:62103*3\:77e9\:9635\
\:ff0c\:5982\:65cb\:8f6c", "Item"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"\[NoBreak]", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "0"},
        {
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], "0"},
        {"0", "0", "1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ".", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"x"},
         {"y"},
         {"1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:8fd9\:6837\:5199\:662f\:9ed8\:8ba4\:987a\:65f6\:9488\:8f6c", "\:ff0c", 
    "sin\:7684\:7b26\:53f7\:8c03\:6362\:4f4d\:7f6e\:5c31\:662f\:9ed8\:8ba4\
\:9006\:65f6\:9488"}], "*)"}]}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"y", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
      {
       RowBox[{
        RowBox[{"y", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"x", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
      {"1"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell["\:5148\:5e73\:79fb\:540e\:65cb\:8f6c\:548c\:5148\:65cb\:8f6c\:540e\:5e73\
\:79fb\:7ed3\:679c\:4e0d\:540c\:ff0c\:8fd9\:4e5f\:662f\:77e9\:9635\:6ca1\:6709\
\:4ea4\:6362\:5f8b\:7684\:4f53\:73b0", "Item"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "Tx"},
       {"0", "1", "Ty"},
       {"0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ".", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"\[NoBreak]", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "0"},
       {
        RowBox[{"-", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], "0"},
       {"0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], "]"}], 
  RowBox[{
  "(*", "\:5148\:65cb\:8f6c\:540e\:5e73\:79fb", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"\[NoBreak]", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "0"},
       {
        RowBox[{"-", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], "0"},
       {"0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ".", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "Tx"},
       {"0", "1", "Ty"},
       {"0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], "]"}], 
  RowBox[{"(*", "\:5148\:5e73\:79fb\:540e\:65cb\:8f6c", "*)"}]}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Cos", "[", "\[Theta]", "]"}], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "Tx"},
     {
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], "Ty"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Cos", "[", "\[Theta]", "]"}], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], 
      RowBox[{
       RowBox[{"Tx", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
       RowBox[{"Ty", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], 
      RowBox[{
       RowBox[{"Ty", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", 
       RowBox[{"Tx", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell["\:4e09\:5143\:6570\:65cb\:8f6c\:53ef\:89c6\:5316", "Item"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"RotateTransform", "[", 
    RowBox[{"v_", ",", "\[Theta]_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"\[NoBreak]", 
          RowBox[{"Cos", "[", 
           RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}], 
         RowBox[{"-", 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}], "0"},
        {
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", " ", "Degree"}], "]"}], 
         RowBox[{
          RowBox[{"Cos", "[", 
           RowBox[{"\[Theta]", " ", "Degree"}], "]"}], " "}], "0"},
        {"0", "0", "1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ".", 
     TagBox[
      RowBox[{"Append", "[", 
       RowBox[{"v", ",", "1"}], "]"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Delete", "[", 
           RowBox[{
            RowBox[{"RotateTransform", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "1"}], "}"}], ",", "n"}], "]"}], ",", "3"}], 
           "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "45", ",", "\"\<\:89d2\:5ea6\>\""}], "}"}], ",", 
     RowBox[{"-", "180"}], ",", "180"}], "}"}]}], "]"}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 137., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 45, "\:89d2\:5ea6"}, -180, 180}}, 
    Typeset`size$$ = {414., {206., 212.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$11178$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 45}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$11178$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{Thick, 
         Line[{{0, 0}, {2, 1}}], Red, 
         Line[{{0, 0}, 
           Delete[
            $CellContext`RotateTransform[{2, 1}, $CellContext`n$$], 3]}]}, 
        Axes -> True, PlotRange -> {{-4, 4}, {-4, 4}}], 
      "Specifications" :> {{{$CellContext`n$$, 45, "\:89d2\:5ea6"}, -180, 
         180}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{471., {257., 264.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 826},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
TaggingRules->{"$testsRun" -> False},
TrackCellChangeTimes->False,
Magnification:>1.15 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 43, 0, 72, "Chapter"],
Cell[626, 24, 946, 31, 190, "Input"],
Cell[CellGroupData[{
Cell[1597, 59, 34, 0, 69, "Subchapter"],
Cell[1634, 61, 190, 4, 34, "Text"],
Cell[1827, 67, 1438, 41, 88, "Input"],
Cell[CellGroupData[{
Cell[3290, 112, 3926, 103, 448, "Input"],
Cell[7219, 217, 3051, 60, 560, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10319, 283, 34, 0, 69, "Subchapter"],
Cell[10356, 285, 548, 7, 34, "Text"],
Cell[CellGroupData[{
Cell[10929, 296, 3169, 86, 192, "Input"],
Cell[14101, 384, 596, 10, 70, "Output"],
Cell[14700, 396, 502, 8, 70, "Output"]
}, Open  ]],
Cell[15217, 407, 212, 2, 34, "Text"],
Cell[CellGroupData[{
Cell[15454, 413, 48, 0, 32, "ItemNumbered"],
Cell[15505, 415, 46, 0, 32, "ItemNumbered"],
Cell[15554, 417, 47, 0, 32, "ItemNumbered"],
Cell[15604, 419, 71, 0, 32, "ItemNumbered"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15712, 424, 1143, 34, 253, "Input"],
Cell[16858, 460, 3015, 92, 87, "Output"]
}, Open  ]],
Cell[19888, 555, 111, 1, 32, "Item"],
Cell[CellGroupData[{
Cell[20024, 560, 1953, 54, 107, "Input"],
Cell[21980, 616, 988, 30, 70, "Output"]
}, Open  ]],
Cell[22983, 649, 206, 2, 32, "Item"],
Cell[CellGroupData[{
Cell[23214, 655, 3120, 84, 192, "Input"],
Cell[26337, 741, 806, 23, 70, "Output"],
Cell[27146, 766, 1146, 33, 70, "Output"]
}, Open  ]],
Cell[28307, 802, 64, 0, 32, "Item"],
Cell[CellGroupData[{
Cell[28396, 806, 2934, 82, 446, "Input"],
Cell[31333, 890, 1792, 37, 572, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

